home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 20 / Cream of the Crop 20 (Terry Blount) (1996).iso / program / n_b_v203.zip / B_RFRAME.DMO < prev    next >
Text File  |  1996-07-04  |  3KB  |  50 lines
  1. $if 0
  2.     ┌──────────────────────────╖                        PowerBASIC v3.20
  3.  ┌──┤          DASoft          ╟──────────────────────┬──────────────────╖
  4.  │  ├──────────────────────────╢    Copyright 1995    │ DATE: 1995-10-01 ╟─╖
  5.  │  │ FILE NAME   B_RFRAME.DMO ║          by          ╘════════════════─ ║ ║
  6.  │  │ LIBRARY                  ║  Don Schullian, Jr.                     ║ ║
  7.  │  ╘══════════════════════════╝                                         ║ ║
  8.  │ A license is hereby granted to the holder to use this source code in  ║ ║
  9.  │ any program, commercial or otherwise,  without receiving the express  ║ ║
  10.  │ permission of the copyright holder and without paying any royalties,  ║ ║
  11.  │ as long as this code is not distributed in any compilable format.     ║ ║
  12.  │  IE: source code files, PowerBASIC Unit files, and printed listings   ║ ║
  13.  ╘═╤═════════════════════════════════════════════════════════════════════╝ ║
  14.    │                ....................................                   ║
  15.    ╘═══════════════════════════════════════════════════════════════════════╝
  16.   This is one of 2 really fancy frames. If all you want is a simple box then
  17.   calling this routine is quite simple but once you start adding in the cross
  18.   members you are in for a bit of a task and you should "experiment" outside
  19.   the main program until you get your numbers right. The trick is the number
  20.   four (4). The frame is 8 pixels wide and to get it to work on just cross
  21.   members you need to incorporate an extra 4 pixels on the column/row to get
  22.   it to draw all the way to the center of the intersecting frame member.
  23.   Admittedly a bit of work but well worth it!
  24.   You can make the cross members be at either the absolute Row or Col or you
  25.   can send values for Hcol! and Hrow! of > 0 and < 1 to have them placed at
  26.   the percentage of the distance. ( This is demonstrated here. )
  27. $endif
  28.  
  29. '.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°.°
  30. ' ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° ° °
  31.                                                     '┌───────────────────────
  32. $INCLUDE "DAS-NB01.INC"                             '│
  33. $INCLUDE "DAS-NBV1.INC"                             '│
  34. $INCLUDE "DAS-NBV2.INC"                             '│
  35.                                                     '│
  36. CLS                                                 '│ get the VGA screen
  37. SCREEN 12                                           '│ set-up
  38. GraphicSETUP                                        '│
  39. fLoadDAScolor                                       '│ load 3D color system
  40.                                                     '│
  41. GBoxRFrame   0, 0,  639, 479, 4, 9, 14, .50, .50    '│ center cross members
  42. GBoxRFrame   0, 0, -324, 479, 4, 9, 14,   0, .25    '│ only a horz line
  43. GBoxRFrame   0, 0, -320, 124, 4, 9, 14, .33,   0    '│ only a vert line
  44.                                                     '│
  45. WHILE NOT INSTAT : WEND                             '│ a clean exit
  46. CLS : PALETTE : SCREEN 0 : END                      '│
  47.                                                     '└───────────────────────
  48.  
  49.  
  50.